Sub Toto()
'copie des données de la feuille Urgences à Travail
Dim wsT As Worksheet, wsU As Worksheet
Dim rgT As Range, rgU As Range
Set wsT = Sheets("Travail")
Set wsU = Sheets("Urgences")
Set rgU = wsU.Range("A3")
Set rgT = wsT.Range("B33").End(xlUp) '1re ligne où écrire dans Travail en haut de B33
Debug.Print rgT.Row
'On part de la cellule A3 et on vérifie chaque ligne si la colonne G n'est pas vide alors on
' recopie dans travail sur 1re ligne disponible entre les lignes 13 et 32
Do Until rgU.Value = ""
If rgU.Offset(0, 6) <> 1 Then 'Si la cellule de la colonne G est vide alors on doit recopier
'
rgT = rgU.Offset(0, 1) 'le contenu de B dans Urgences est recopié dans Travail
Set rgT = wsT.Range("B33").End(xlUp).Offset(1, 0) 'prochaine ligne
End If
Set rgU = rgU.Offset(1, 0) 'on passe à la ligne suivante
Loop
End Sub