Bonjour,
 
J'ai un fichier Excel avec 30 onglets identiques (formulaire) allant de 3 à 32 , et aussi un onglet "Résultats"
 
J'ai fait une macro qui commence sur la Sheet 3 et y verifie une condition : que la celulle C8 soit égale à "At Port".
Si c'est le cas, j'aimerai qu'une macro copie une cellule qq lignes en dessous (E8) et la cole sur ma feuille resultat. Cela dans une nouvelle colonne a chaque fois que C8 = At port
 
Je vous joins mon code actuel si ca permet d'etre plus clair :

Sub macro2()
  ' Declare Current as a worksheet object variable.
         Dim Current As Worksheet
' Loop through all of the worksheets in the active workbook.
         For Each Current In Worksheets
 
' condition Macro
If Sheets("Sheet3" ).Range("C8" ) = "At port" Then
Sheets("Resultats" ).Range("C2" ) = Sheets("Sheet3" ).Range("C8" ).Value
 
'Copy valeur en dessous
    Sheets("Sheet3" ).Select
    Range("E8" ).Select
    Selection.Copy
    Sheets("Resultats" ).Select
    Range("C4" ).Select
    ActiveSheet.Paste
End If
      End Sub

 
Merci d'avance à vous !

For.. Next
 
 
Et pourquoi un copier/coller? Une valeur ou une formule ne suffit pas?