Sub Macro3()
Dim Modele As String
Dim CColoris As String
Dim Taille As String
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "SKU"
Cells.Find(What:="modele", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Range("A1").Select
Modele = ActiveCell.Address(0, 0)
Cells.Find(What:="code_coloris", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Range("A1").Select
CColoris = ActiveCell.Address(0, 0)
Cells.Find(What:="taille", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Range("A1").Select
Taille = ActiveCell.Address(0, 0)
Range("A2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(Modele,CColoris,Taille)"
End Sub