Incompatibilité de type

Bonjour,

Alors voilà, il y a une erreur : Incompatibilité de type sur la ligne surligné.

recl = ""
Date_Min = DateSerial(Year(Date), Month(Date) + 1, 1)
Date_Max = DateSerial(Year(Date), Month(Date) + 2, 0)
For i = 6 To 1200
If Sheets("Récapitulatif").Range("G" & i).Value >= Date_Min And _
Sheets("Récapitulatif").Range("G" & i).Value <= Date_Max Then
recl = recl & vbNewLine & vbTab & Range("A" & i, "B" & i)
End If
Next i
If recl <> "" And Not ThisWorkbook.ReadOnly Then
MsgBox "Requalification du mois prochain :" & vbNewLine & recl, vbOKOnly, "Serrage au couple"
Else
End If

Cdlt.

Bonjour,

peut être ceci, à voir le type de variable utilisé...

recl = recl & vbNewLine & vbTab & Range("A" & i) & Range("B" & i)

bonne journée

@+

Bonjour,

Merci ça fonctionne niquel.

Cdlt.