Sub concat()
Dim Mot, mot1, Mot2, Mots3 As String
Dim i As Integer
For i = 9 To 11
Sheets('Feuil1'Â'Â').Select
mot1 = Range('B' & i).Value
Mot2 = Range('C' & i).Value
Mot3 = Range('D' & i).Value
If mot1 = '' Then
mess = 'B' & i & ' Vide !'
rep = MsgBox(mess)
End If
If Mot2 = '' Then
mess = 'C' & i & ' Vide !'
rep = MsgBox(mess)
End If
If Mot3 = '' Then
mess = 'D' & i & ' Vide !'
rep = MsgBox(mess)
End If
Mot = mot1 & ' ' & Mot2 & ' ' & Mot3
Sheets('Feuil2'Â'Â').Select
Range('A' & i-7).Value = Mot
Next i
End Sub