If Condition = False Then
Sheets("TT").Range("A" & i & ":B" & i).Copy 'copie la cellule D
Sheets("Macro").Range("A" & k & ":B" & k).Select 'selectionne la cellule en C
ActiveSheet.Paste 'colle
Application.CutCopyMode = False '"sort" du coller
Sheets("TT").Range("A" & i & ":B" & i).Copy 'copie la cellule D
'Sheets("Base_01_fix_voice_announcement").Select
' Range("A" & col_base + i).Select
' ActiveSheet.Paste 'colle
' Application.CutCopyMode = False '"sort" du coller
k = k + 1
End If