Sub MacGyver_Angus()
Dim lig&, f$
f = "=IF(OFFSET(R1C1,(ROWS(R[-1]C[-1]:R1C[-1])-1)*10+COLUMNS(C1:C[-1])-1,)=0,"""",OFFSET(R1C1,(ROWS(R[-1]C[-1]:R1C[-1])-1)*10+COLUMNS(C1:C[-1])-1,))"
lig = Cells(Rows.Count, 1).End(3).Row
With Range("B2:K" & lig)
.FormulaR1C1 = f: .Value = .Value
End With
Range("B:B,D:D,F:F,H:H,J:J").Delete Shift:=xlToLeft: Range("F2:F" & lig).NumberFormat = "m/d/yyyy"
Range("B1:F1") = Array("Couleurs", "Nom", "Prénom", "Age", "Date de naissance")
End Sub