Sub Dispatch3()
Dim i As Integer, j As Integer, k As Integer
If MsgBox("Voulez vous lancer la macro ?", vbYesNo) = vbNo Then Exit Sub
For i = 1 To Sheets.Count
If Cells(i, 2) Like Sheets(i).Name Then
For j = i To Range("B" & Rows.Count).End(3).Row
If Cells(j, 2) Like Sheets(i).Name Then
If Sheets(i).Range("A9") = "" Then
Sheets(i).Range("A9") = Cells(j, 1)
For k = 1 To 26
Sheets(i).Range("A" & Rows.Count).End(3).Rows(1).Offset(, k) = Cells(j, k + 1)
Next
Else
Sheets(i).Range("A" & Rows.Count).End(3).Rows(2) = Cells(j, 1)
For k = 1 To 26
Sheets(i).Range("A" & Rows.Count).End(3).Rows(1).Offset(, k) = Cells(j, k + 1)
Next
End If
End If
Next
End If
Next
MsgBox "Opération terminée"
End Sub