Option Explicit ' obligation de déclarer les variables
Sub copie()
Dim i As Long 'variable
Dim j As Integer ' variable
Application.ScreenUpdating = False 'cela signifie que l'ecran n'est plus mis à jour
Sheets("Feuil1").Select
Range("Saisie").ClearContents ' effacement de la cellule nommée Saisie
For i = 4 To 65536 'boucle de la ligne 4 à 65536 ( maxi pour excel 2003)
If Cells(i, 6) = "" Then ' si la ligne de la colonne 6 est vide alors
Sheets("Feuil3").Select ' feuille 3 selectionnée
Exit Sub ' sortie de la macro
End If
If Cells(i, 6) = Range("numero") Then ' si la cellule colonne 6 est égale à la cellule D9 nommée numéro
For j = 17 To 28 ' boucle de la ligne 17 à 28
If Sheets("Feuil3").Cells(j, 3) = "" Then ' si la cellule de la colonne 3 est vide alors
Range(Cells(i, 2), Cells(i, 3)).Copy Sheets("Feuil3").Cells(j, 3) ' les cellules des colonnes 2 et 3 sont copiée
' dans la feuille 3 cellule de la colonne 3
Exit For ' sortie de la boucle j
End If ' fin de la condition
Next j 'fin de la boucle
End If
Next i
Application.ScreenUpdating = True
End Sub