Private Sub CommandButton2_Click()
Range("B4:F4").Copy 'Plage à adapter
Sheets("Sheet2").Range("C22").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B5:F5").Copy 'Plage à adapter
Sheets("Sheet2").Range("C17").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B6:F6").Copy 'Plage à adapter
Sheets("Sheet2").Range("C12").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B7:F7").Copy 'Plage à adapter
Sheets("Sheet2").Range("C7").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B8:F8").Copy 'Plage à adapter
Sheets("Sheet2").Range("C2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub