Sub Mettredonnee()
Dim NumLig As Integer
Dim casemma As Variant
Dim lig As Integer
Dim i As Integer
Dim onglet As Variant
lig = 1
NumLig = 1
For i = 2 To ThisWorkbook.Sheets("unité").Cells(65536, 1).End(xlUp).Row
onglet = Mid(ThisWorkbook.Sheets("unité").Cells(i, 12).Value, 1, 6)
ThisWorkbook.Sheets("unité").Cells(i, 1).EntireRow.Copy
If ThisWorkbook.Sheets(onglet).Cells(lig, 1).Value = "" Then
NumLig = NumLig + 1
ThisWorkbook.Sheets(onglet).Cells(NumLig, 1).EntireRow.Select
ActiveSheet.Paste
End If
lig = lig + 1
Next i
End Sub