Sub strats()
'
' strats Macro
'
'
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
Cells.Find(What:="Strategie", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("B3:H3").Select
ActiveCell.FormulaR1C1 = "Strategie : xxxxxxxxxx"
Range("A4:A5").Select ' je sais pas comment dire qu'il faut se placer su ce range !
ActiveSheet.Paste
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.FormulaR1C1 = "Strategie : xxxxxxxxx1"
Cells.FindNext(After:=ActiveCell).Activate
Range("A8:A19").Select ' je sais pas comment dire qu'il faut se placer su ce range !
ActiveSheet.Paste
End Sub