Option Explicit
Sub TestNomAdresse()
Dim Cpt As Integer
Dim ShtClient As Worksheet, ShtOk As Worksheet, ShtRejet As Worksheet
Set ShtClient = ThisWorkbook.Sheets("fichier client")
Set ShtOk = ThisWorkbook.Sheets("adresses intégrables")
Set ShtRejet = ThisWorkbook.Sheets("adresses rejetées")
ShtOk.Cells.Clear
ShtClient.Rows(1).Copy Destination:=ShtOk.Rows(1)
ShtRejet.Cells.Clear
ShtClient.Rows(1).Copy Destination:=ShtRejet.Rows(1)
For Cpt = 2 To ShtClient.Range("A65536").End(xlUp).Row
If Len(ShtClient.Range("B" & Cpt).Text) > 30 Or _
Len(ShtClient.Range("C" & Cpt).Text) > 30 Then
ShtClient.Rows(Cpt).Copy Destination:=ShtRejet.Rows(ShtRejet.Range("A65536").End(xlUp).Row + 1)
Else
ShtClient.Rows(Cpt).Copy Destination:=ShtOk.Rows(ShtOk.Range("A65536").End(xlUp).Row + 1)
End If
Next Cpt
Set ShtClient = Nothing
Set ShtOk = Nothing
Set ShtRejet = Nothing
End Sub