Bonjour tout le monde. Une variante. Plus besoin de numéroter les patients avec la formule
=SI(B5<>"";LIGNE(A5)-4;"")
Tu feras attention à tes "1 ière" et "1iere".
Option Explicit
Sub Enregistrement()
Dim ligne1 As Long, ligne2 As Long, nbInscrits As Long
Dim i As Long
Dim feuille As String
nbInscrits = Sheets("Liste").Cells(Rows.Count, 2).End(xlUp).Row
For i = 5 To nbInscrits
ligne1 = Sheets("1iere injection").Cells(Rows.Count, 2).End(xlUp).Row + 1
ligne2 = Sheets("2e injection").Cells(Rows.Count, 2).End(xlUp).Row + 1
feuille = Sheets("Liste").Cells(i, 8)
Select Case feuille
Case "1 ière injection"
Sheets("Liste").Range("B" & i & ":" & "H" & i).Copy
Sheets("1iere injection").Range("B" & ligne1 & ":" & "H" & ligne1).PasteSpecial Paste:=xlPasteValues
Case "2 ième injection"
Sheets("Liste").Range("B" & i & ":" & "H" & i).Copy
Sheets("2e injection").Range("B" & ligne2 & ":" & "H" & ligne2).PasteSpecial Paste:=xlPasteValues
End Select
Next i
End Sub