Aide vba exo

Slt a tous,

je galere trop sur mes exos de vba..si quelqu'un gere bien, j'aimerais savoir ce qu'il pense de mes deboires progammatoires!!!!!

Macro 3
Write a macro that ask the user to enter a numeric value and then copy from the data
table in sheet “table” only the cells containing a value greater or equal to the given
limit. The cells matching the condition will be copied in the sheet “Extraction” at the
same position. At the end of that process we want to display the total number of
copied cells (using the “msgbox” function).

Voila ce que j'ai fait:

Sheets("table").Select
Cells(1, 11).Value = InputBox("Saisir la valeur")
If Cells >= Cells(1, 11) Then Copy
Sheets("Extraction").Select
ActiveSheet.Paste
Sheets("Extraction").Count

Macro 4
Write a new macro that can copy the content of the sheet “table” to the sheet
“NormMax”. Instead of simply copying the value we will copy the value of the cell
divided by the greatest value fond in the original data table. The resulting values must
be between 0 and 1. Note that you can use the Worksheetfunctions object (this object
embeds the standard excel functions such as Average, Sum, Min, Max…). For example
if we want to calculate the average of the cells from A1 to F10 we may write the
following :
worksheetfunctions.average(range(“A10:F10”)

LA pire de toutes la c'est vraiment la galere...
Sheets("Table").Select
Cells.Select
Selection.Copy
Sheets("copieTable").Select
ActiveSheet.Paste

Je n'arrive meme pas a y rentrer les worksheetfunctions.divide (je sais pas comment l'ecrire)


Macro 5
The las macro that you must write will copy all the content of the data table in sheet
« table » to the sheet “EnColonne” putting all the value in a single column.

Meme souci, sans la maitrise des worksheetfunctions....